home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MacOberon.cpt / MacOberonToolBoxInterface.sit / MacDesk.Mod (.txt) next >
Encoding:
Oberon Text  |  1990-08-30  |  837 b   |  20 lines  |  [.Ob./.Ob*]
  1. Syntax10.Scn.Fnt
  2. MODULE MacDesk;    (* Macintosh OS Interface Module    Michael Franz, 30.08.90    Complete Interface *)
  3. IMPORT
  4.     TY:= MacTypes, EM:= MacEvents, WM:= MacWindows;
  5. CONST
  6.     (* Events *)
  7.         accEvent = 64;    accRun = 65;    accCursor = 66;    accMenu = 67;
  8.         accUndo = 68;    accCut = 70;    accCopy = 71;    accPaste = 72;
  9.         accClear = 73;
  10.     (* Goodbye message *)
  11.         goodbye = -1;
  12. PROCEDURE - OpenDeskAcc*(theAcc: TY.Str255): INTEGER    0A9H, 0B6H;
  13. PROCEDURE - CloseDeskAcc*(refNum: INTEGER)    0A9H, 0B7H;
  14. PROCEDURE - SystemClick*(theEvent: EM.EventRecord; theWindow: WM.WindowPtr)    0A9H, 0B3H;
  15. PROCEDURE - SystemEdit*(editCmd: INTEGER): BOOLEAN    0A9H, 0C2H;
  16. PROCEDURE - SystemTask*()    0A9H, 0B4H;
  17. PROCEDURE - SystemEvent*(theEvent: EM.EventRecord): BOOLEAN    0A9H, 0B2H;
  18. PROCEDURE - SystemMenu*(menuResult: LONGINT)    0A9H, 0B5H;
  19. END MacDesk.
  20.